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States and data for the parsing of NCP show and List commands 
i ENVIRONMENT: VAX/VMS Operating System 


i AUTHOR: Darrell Duffy . CREATION DATE: 14-September-79 
i MODIFIED BY: 
v03-009 PRDO061 Paul R. DeStefano 05-Feb-1984 
Allow OBJECT parameter to accept both name and number. 
v03-008 PRDOOS3 Paul R. DeStefano 05-Feb-1984 


Complete addition of and enable X25-Access parsing. 


v03-007 RPGO007 Gob Grosso 19-Feb-1983 
Accept Cuacult circuit-id and KNOWN CIRCUITS after 
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f yn te “a Console, Loader, Looper. 
ee v03-004 RPGO0004 14-Sep-1982 
6 Correct fenette og, 80 DULE By a noiseword 
64 when a D r GROUP en tye t resent. 


E 
Fix SHOW x35-P DTE to ae ter DTE name. 
v03-003 TMHO003 16-Aug-1982 


between Lines and links. This aohde the ambiguity 
rules consistent. 


v001 TMHOO01 Tim Halvorsen 17-Jun-1981 
wt 4 object & Link as systen~spec i tic ps 
s in their respect ve SDB 
Auge SHOU CIRCUIT. 
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3 1! 3 
3 1! § 
3 1! 3 
3 1 ! 3 
3 1! 3 
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3 1! 3 
3 1! $ 
r 1! 3 
3 1! 3 
3 1! Fix SHOW x25-TRACE A “that th the e srecepe} my oe noms is ; 
: § : sent in the NICE message if it is specified : 
: 71 1} v03-002 RPGO002 Bob Grosso 03-Aug-1982 ; 
. 1: Include prompting for X-P. 3 
; fF ! Include ok. for XS. : 
: 75 1! v03-001 RPGO001 Grosso 14-Jul-1982 F 
5 4 : } Add show module . “Trace, X29-Server. : 
: 78 78 i v006 —- RPG0006 Gro 13-May-1982 ; 
; 79 1! agg show module rf roreteeel and X25-server, 3 
3 Bi : x25-Access. : 
: ¢ 2 1/ vOOS _ TMHO00S Tim Halvorsen 08-Nov-1981 F 
s 8 1! Fix SHOW LOGGING. when SUMMARY follows KNOWN SINKS $ 
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; 8s Bs : : naa SHOW LINK nnn. : 
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‘ 4 ; Add SHOW MODULE. “ | 
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; 9 1! Remove special t*spet of “LIN a LINE entity 3 
3 4 ! : and require full spelling of “LINE” ¢ S dleciensiel : 
: 96 1! : 
3 97 1! F 
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; WW 1! 
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NOD. NADR,’, VRB_ENT 

EXE. LITL. 6. VRB_ENT, 
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ENT, NADR, , VRB_ENT, 
NOD, NADR, . . 
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BUILD_SDB 

(SLK, -NMASC_SENT_LNK, VRB_ENT, SLK) 


nk address, not a node name 


Li 
(but using same format as NADR) 


DO000 


: 49 45 1! 
; : of Show List Logging 
§ P a3 BUILD_PCL ; 
3 P (SLO, ; 
: 25 P 1 SNO, NADR, PCLO_SIN, , F 
; 258 P 0254 1 ‘ds F 
; 3 Po 5 ! e END, oe : 
: e ‘ 37 ) ; 
4 es P 33 BUILD_PBK ; 
; 65 P 61 (SLO, : 
> 267 P § 8 1 SKN, LITB, NMASC_ENT_KNO, SLO_SNO, F 
: 268 P 0264 1 SEX. LITL, 0, SLO7SNO, : 
> 269 P 0265 1 SNO, NADR. , , : 
: 270 PO 66 : 
: § 0368 1 
; ib P 0 $9 BUILD_SDB ; 
: 275 0271 1 (SLO, NMASC_ENT_LOG, VRB_ENT, SLO) ; 
Me RT : 
$8 Show List Links by node 
; 381 P0277 3 BUILD_PCL ; 
2 nd Sn : 
; 285 Pp 0381 NOD, NADR, PCLK_NID, , : 
: 287 P 0288 1 ~ ae 

; 288 P 0284 1 

; 289 0 85 ) 

3 0987 BUILD_PBK 

; § HE 1 (SLK, 

: 0 90 1 

: 1 

F § 1 

: 4 1 

3 5 1 

F 9% 1 

3 97 1 

5 | 98 (1 

F 99 1 
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BUILD_PCL 
(SPR, 


DIE, TKN, PCXP_DTE, , 
GRP, TKN, PCXP_GRP, , 


5 END, . . 
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BUILD_PBK 
(SPR, 


TKN oe 
KOT. LIT6, NMASC_ENT_KNO, SPR_DTE, ! known DTEs 
=. L116, ‘NMASC_ENT_KNO, SPR_GRP, ! known Groups 
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BIND PDB$G_S ! Protocol entity name 
UPLIT “BYTE CO. ZASCIC "X25-PROTOCOL'); 


BUILD_SDB 
(SPR, NMASC_ENT_MOD, SPR_ENT, SPR) 


ab td a ts ts a ts tt tt 


vv 


(S9S, NMASC_ENT_MOD, S9S_ENT, SSE) 
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¥042008 Parameter blocks 12-8 08- 198 e 03:29:43 NCP.SRCINCPSTASHL .B32;1 (8) 
> 391 4 1 : 
; 8 _ sk : 
; 39 1! Show Module X25-Server : 
; 394 1! : 
3 595 Pp 3 1 BUILD_PCL ‘ 
3 38 P 1 ; 
; 39 P 0390 1 (SSE, ° 
: 398 P 0391 1 ‘ 
; 399 P 0392 1 DST, TKN, PCXS_DST, , : 
: 400 P 0395 1 ‘ 
: 401 P 0394 1 END, .. : 
3 40¢ 95 1 j : 
: 4 96 1 ‘ 
3; & P 0397 1 BUILD_PBK ‘ 
; 405 p 839 1 ; 
3; 4 P 0399 1 (SSE, : 
; 407 P 0400 1 ‘ 
: 408 P 0401 1 DST, TKN, . , ° 
3; 409 P rh 4 1 KDS, LIT, NMASC_ENT_KNO, SSE_DST, ! destinations : 
; 410 403 1 ) ‘ 
: 411 0404 1 ; 
; oi¢ 0405 1 : 
3; «41 0406 1 BIND PDB$G_SSE_ENT = ! Server entity name ° 
3 414 0407 1 UPLIT-BYTE(O, %ASCIC 'X25-SERVER'); $ 
3; 415 0408 1 ; 
: 416 P 0409 1 BUILD_SDB 3 
; 417 P0410 1 3 
; 418 0411 1 (SSE, NMASC_ENT_MOD, SSE_ENT, SSE) 3 
: 230 oc1s | ; 
3 re 0414 1! 3 
; 4 § 0415 1! Show Module X29-Server 3 
; 4 0416 1! 3 
: 426 0417 1 3 
; 425 0418 1! 3 
3 438 0419 1! Use PCL and PKBs from X25-Server, only SDB and Entity PDB F 
: 427 0420 1! are different 3 
; 428 0421 1! 3 
: 429 ; 1 F 
; 4 4 1 BIND PDB$G_S9S_ENT = ! Server entity name 3 
3 ? 1 Be : : UPLIT-BYTE(O, ZASCIC "X29-SERVER'); 3 
3; 4 5 04 3 1 BUILD_SDB 
3; 4 be 1 
: 435 428 1 
; 436 0429 1 
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; 4 4 1 : 
H 03 ? 1} : 
: 440 § 1! Show Module X25-Trace 3 
3: 461 1! 7 
: 66 P0434 1 BUILD_PCL 2 
: 46 P0435 1 2% 
: 464 P 04 $ 1 (STR, 3 3 
: 445 P 04 1 $ 7 
: 446 P 04 § 1 TPT, TKN, PCXT_TPT, , 3; 7 
3 66 P 04 1 : 1 
3: 448 P0440 1 END. . . : 7 
; 449 44) 1 j 2 
; 450 woe 1 : 1 
; 451 445 1 37 
eS é P0444 1 BUILD_PBK i] 
; 4 P0445 1 21 
3 454 Pp 4g 1 (STR, 3 7 
; 455 P 0447 1 eS. 
: 436 Pp O668 1 TPT, TKN, , , 3 7 
; 45 P0449 1 KTP, LITB, NMASC_ENT_KNO, STR_TPT, ! known TRACEPOINTS 37 
; 458 0450 1 ) 37 
; 459 0451 1 37 
; 460 aoe 1 : 1 
3; 461 453 1 BIND PDB$G_STR_ENT = ' Trace entity name 7 
: 46 aoe UPLIT“BYTE(O, ZASCIC 'X25-TRACE'); 3 f 
: 464 Pp 0636 1 BUILD_SDB 37 
; 465 P 0457 1 37 
; 466 0458 1 (STR, NMASC_ENT_MOD, STR_ENT, STR) : 
3 7 
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; 4 459 1 XSBTTL ‘Prompt strings’ :) 
ag if 1 ! . : 
3; 471 ; 1! Build prompt strings : } 
; 47 4 1! 4 
s 467 1 ° 

> 474 465 1 BIND 3 
: 475 P 0466 1 PROMPT_STRINGS 3} 
i 476 P 0467 1 (SHL, 3} 
; 47 P os 1 .4 
3; 478 P 04 1 ACT, * CAREAS CIRCUITS, LINES, LOGGING, NODES): °, . 4 
: 479 P0470 1 ADJ, ‘(NODE 3} 
; 4 L 1 ENT, ZSTRING ( (ACTIVE , ADJACENT, AREA we, oe * CALF, : 4 
; 481 B Ore | NOWN, LINE, LOGGING LOO pute NODE, OBJECT): "), 3} 
: 4B P0473 1 KWN, "(AREAS, cIncurts. LINES. LINES Og6iN NODES, 66 ECTS): ', zt 
; 4 L O474 | MOD, XSTRING (‘Module © (CO ONE IGURA 168, LOADER, ', CRLF : 
; 4 L 0475 1 LOOPE ane Cast PROTOCOL, ’, CALF, : | 
> 485 B 047 | . X25 Seaver. =TRACE, X29-SERVER): '), 2} 
3 one P0477 1 4 
; 48 478 ‘ ) .4 
: 488 0479 : - 
; 489 480 1 - 4 
: 490 P 0481 1 PROMPT_STRINGS 3} 
; 491 P 04 : 1 (SAR, 3 
; 49 P 04 1 24 
; 49 P 04 1 ENT, ‘Area number (integer): ', 74 
; 494 P 0485 1 7 
; 495 04 2 ) : 1 
: 496 0487 1 ; 3} 
; 497 0488 1 .* 
; 498 P 0489 1 PROMPT_STRINGS . 4 
; 499 P 0490 1 (SCI, 24 
; 300 P b73) 1 ae 
3; 501 £36 1 ENT, ‘Circuit name (16 characters): ', a 
; 208 P 04935 1 74 
; 0494 1 ), . 4 
; 504 0495 1 . 

; 205 P0496 1 PROMPT_STRINGS 

; 53 P 983 1 (SLI, 

; 50 P 0498 1 

; 508 P 0499 1 ENT, ‘Line ID (dev-c-u.t): ', 

3: 5309 P 0500 1 

; 510 501 1 ), 

3 STi 5 § 1 

; \ P 05 1 PROMPT_STRINGS 

; 514 P0505 1 

3; 315 P 05 1 ENT, ‘Link address (0-65535): °, 

; 1g P 0507 1 

; a 508 ¢ ) 

:; 518 509 : 
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; $84 Poste | a 3] 
; $25 P0515 1 ENT. ‘Type of Logging (CONSOLE. FILE, MONITOR): *, 2 | 
: $ : 1 ! SNO, ‘Sink node (node-id, EXECUTOR): ', 2 
; 528 18 2 ) i] 
° 9 1 oO ° 

; 0 1 3 1 
: 531 P0521 1 PROMPT_STRINGS : 1 
3 ¢ 4 § : (SNO, : 
; P0524 1 ENT, ‘Node ID (node-name, address): ', : ' 
3 5 P : ‘ + 
: 5 ‘ 3 1 
g 5 1 : 1 
$ 9 P 05 § 1 PROMPT_STRINGS : : 
; 540 P0530 1 (SOB, Hey 
3 41 P 82 a: 2 $f 
3 ? 4 82 ¢ : ENT, ‘Object name (8 characters): ', zt 
; 544 0534 1 be | 
3 S44 0535 1 : 
tae a oe q 
: 548 P 05 8 1 , 3 
3 49 P 0539 1 DAT, ‘(CIRCUIT, KNOWN CIRCUITS): ', : 
3 9 . Bese : CIR, ‘CIRCUIT name (16 characters): ', 3} 
: 55 542 1 ), 31 
3 2§ O58 1 ; : 
: 54 P 0544 1 PROMPT_STRINGS . 

$ 55 P 0545 1 (SAC, 3 Y 
; 56 P 0346 1 : ! 
5 57 P 054 1 DAT, ‘(NETWORK mame, KNOWN NETWORKS): ', ¢ 3 
3 38 : 238 : NET. "NETWORK name (16 Characters): ', He 
: 560 550 1 ), 3} 
; 561 $51 1 : 
: es “ 338 ! ae : 1 
; P0554 1 ; :1 
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3 $6 P 228 1 DTE, ‘(DTE name): ‘, 3 

: 56 4 338 : GRP, "(GROUP name): ‘, 

: 59 1 , 

: $3 560 1 

: 71 P 0561 1 PROMPT_STRINGS 

3 a p 266 1 (SSE, 

; 7 a 27 1 ‘ 

3 74 P 1 DAT, ‘(DESTINATION, KNOWN DESTINATIONS): ‘, 

§ 4g 4 4 ! DST, ‘(DESTINATION name): ‘, 
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COMMAND _PROMPT 
(SHL, ACT, NCPS_INVKEY, 
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Show / List Area 
Collect the Area number or prompt 


COMMAND PROMPT 
(SAR, ENT, NCPS_INVVAL, 

( (SE_LAREA_NUM), , ACTSSAVPRM, , , PBKSG_SHL_ARE) 
) 


Collect the information type 
(ST 
( ¢ 
): 


SAR_GO 
ST_IRF_fyvPe2) ) 
Perform the function 
( 
(FPAS_LAMBDA, . « NMASC_ENT_ARE, NCPSGL_OPTION, ) 


( 
(TPAS_E0S, TPAS_EXIT, ACTSVRB_SHOLIS, , , SDB$G_SAR) 
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S 751 1 &SBTTL ‘Show / List Circuit’ :1 
rs 7 1 $s 7 
: 7 753 13 : 1 
3 rg 7 1! Show / List Circuit 3 7 
: on tee yt 2 
: ore 7 § 1! : 1 
s rr 7 1! Collect the circuit name or prompt 3 3 
Mey t 
: 276 P0761 1 C D_PROMPT :14 
; oy p 166 (SCI, ENT, NCPS_INVVAL, : ' 
: 77 p 764 ( (SE_CIRC_ID), , ACTSSAVPRM, , , PBK$G_SHL_TKN) : i 
: 781 1 ) +1 
. eae i} 
: 784 O76 1 i Collect the information type . 
: PRs an +. 
; res P Ore 1 $STATE (ST_SC1I_GO :1 
; 7 P0773 1 ( (ST_INF_fYPE2)) 31 
: 15 re | ‘ . 
: 791 Pp 76 1 SSTATE (, : 1 
: 79 P0777 1 (f ADJACENT"), 31 
: 79 P0778 1 (TPA$_LAMBDA, ST_SCI_GONE), :1 
: F3¢ reo is 7: 
: 796 P 0781 1 SSTATE (, :1 
: 79 P 07 2 1 (NODE *) 1 
: 336 ae ds ae 
; 800 p Ove 1 SSTATE ¢ ; 1 
5 Boe P ores C¢SE_ NODE_ID), , ACTSSAVPRM, , , PBK$G_SCI_NOD), : 1 
: 80 788 1 . 31 
: 804 P 0789 1 $STATE (, 31 
: 805 P0790 1 ("(ST_INF_TYPE2) ) : 1 
: 8 791 1 ); +1 
: Boe 738 i] 
: 809 794 1: Perform the function ; 
: Big rR i: 
: 12 P 0797 1 S$STATE (ST_SCI_GONE, 33 
> 81 P 798 1 (TPAS_LAMBDA, , , NMASC_ENT_CIR, NCPSGL_OPTION, 1 
3 14 1 ); 3 1 
: 815 800 1 $1 
: 1 P 0801 1 $STATE ( 3% 
: Bi Pp é 1 (TPAS_EOS, TPAS_EXIT, ACTSVRB_SHOLIS, , . SODB$G_SCI) i] 
; 818 1 ); : : 

:1 

3 1 

3 1 


5 
t 4 yt A apmaetiam ton 1eo$ep-198e 12:48:32 ENCPsSRCINGPSTASML -B3er1 Poe 49) 


ZSBTTL ‘Show / List Line’ 


“id a 
v04-000 


~r 
met 


1 
Show / List Line 
' 


Collect the Line ID or prompt 
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; 5 1 
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; 1 
: 1 
. 
; 1 
: 1 
2 ‘| 
; P0814 1 COMMAND. PROMPT 
; P 4 (SLI, ENT, NCPS_INVVAL, 
; 4 p ? ( (SE_LINE_ID), , ACTSSAVPRM, , , PBK$G_SHL_TKN) 
: 8 9 1 ) 
if ar 
: 8 08 1 i Collect the information type 
Se ee . 
> B41 P 0825 1 $STATE (ST_SLI_GO 
; Bc P 4 $ 1 ( (ST_INF_fYPE2) ) 
: 84 8 1 ds 
2 en ee 
; bed 4 =e Perform the function 
: Bee 8 : : 
> B49 P 4 1 S$STATE 
; 20 P 4 (FPAS_LAMBDA, » » NMASC_ENT_LIN, NCPSGL_OPTION, ) 
: 85 836 1 ~ 
: Ha Pp 08 $ 1 $STATE ( 
; B54 Pp 08 G (TPAS_E0S, TPAS_EXIT, ACTSVRB_SHOLIS, . , SDB$G_SLI) 
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vO4 Show / List Logging 27868-1382 Pt eH NEP SREINERSTASML -o3204 , (283 vor 
; 955 9 1 3 | 
; 996 385 1! He 
; 9 9 8 1! The node id for the sink node : 1 
; 3 5 320 : : 
: 960 P0941 1 COMMAND. PROMPT 5 
; 961 P 094¢ | (SLO, SRO, NCPS_INVVAL, | 
368 P0944 1 ("EXECUTOR', ST_SLO_DOIT, ACTSSAVPRM, , , PBK$G SLO_SEX), 3 | 
: 964 P0945 1 ( (SE_NODE_{D),~ST_SLO_DOIT, ACTSSAVPRM, , , PBRSG_SLO_SNO) 3 
1 34 ee? Beg : 
2 ae : 
; 969 950 1: Parse rest of KNOWN SINKS ; | 
: on bos 1 4 
; 972 P $984 1 $STATE (ST_SLO_SKN, 3 
; 97 P 0954 1 ("SINKS*) ; | 
> 97% P0955 1 (TPAS_LAMBDA) | 
ee) Se ; 
: 977 P0958 1 SSTATE ( 3 | 
; 978 P 0959 1 (TPAS_LAMBDA, , ACTSSAVPRM, , , PBK$G_SLO_SKN) 23 
; 979 0960 1 ); ey 
: oR doe? 1! 21 
: 98 Boe 1} Perform the function 3 
ey! ; 
: 985 P 0966 1 SSTATE (ST_SLO_DOIT : 1 
; 986 P 0967 1 ((ST_INF_TYPE3)) ! Collect info type here too 4 
: 388 Ne: i i : 1 
: 989 P0970 1 $STATE ( i | 
: 990 P0971 1 (TPAS_LAMBDA, , , NMASC_ENT_LOG, NCP$GL_OPTION) 3 | 
: 99 097 ); | 
: 99 P bore 1 SSTATE ( i. 
> 99% P0975 1 (TPAS_EOS, TPAS_EXIT, ACTSVRB_SHOLIS, , , SDB$G_SLO) . 
: 995 0976 1 ); a: 
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3; 10146 1 
3; 1015 1 
3 7 16 1 
; 101 1 
3 1 18 P q 
; 101 P 1 
: 1020 4 
; 1021 1 
3; 10 ¢ 1 
3 18 1 
3; 1024 1 
3; 1025 1 
3 10 g Pp 1 
3; 10 P 1 
: 1028 1 
: 1029 1 
3; 10 P 1 
3; 1031 P 1 
3; 1032 1 
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SSTATE 
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Show / List Node 


Obtain the node id 

COMMAND PROMPT 

(SNO, ERT, NCPS_INVVAL, 

( (SE_NODE_ID), , ACTSSAVPRM, , , PBK$G_SHL_NOD) 
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Now the information type 

ST_SN 
(ST 


( 0_GO 
ST_INF_fvPE2) ) 


Now perform the function 
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(FPAS_LAMBDA, . « NMASC_ENT_NOD, NCPSGL_OPTION, ) 
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(fPAS_E0S, TPAS_EXIT, ACTSVRB_SHOLIS, . . SDB$G_SNO) 
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ZSBTTL ‘Show / List Console’ 
| 
Show / List Console 
P SSTATE (ST_SCS_ENT, ! Obtain the information type desired 
P ; (ST_INF_TYPE1) ), 


! Perform the function 


SSTATE ( 
(FPAS_LAMBDA, » » NMASC_ENT_MOD, NCPSGL_OPTION, ) 


SSTATE ( 
(fPAS_EOS, TPAS_EXIT, ACTSVRB_SHOLIS, , , SDB$G_SCS) 
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3 1143 1119 1 2SBTTL ‘Show / List Loader’ 
5 1144 11 p 1 
+ 1145 11 1! 
: 1146 i 3 Show / List Loader 
: 116 1126 1— 
s 1109 P 1125 1 SSTATE (ST_SLD_ENT, : Obtain the information type desired 
: i 9 Pp i $ (ST_INF_TYPE1) ) 
: 1138 1159 13 ; 
+ 1154 1 9 1 i Perform the function 
We OMB! 
: 11 $ P11 4 1 SSTATE ( 
: i 8 Pp ui 4 (FPAS_LAMBDA, . » NMASC_ENT_MOD, NCPSGL_OPTION, ) 
$ 1160 1 1 ; 
: 1161 P11 1 SSTATE ( 
: 116¢ Pp 1 (fPAS_E0S, TPAS_EXIT, ACTSVRB_SHOLIS, , , SDB$G_SLD) 
: 1164 1140 1 : 
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Show / fist =3001 38% 9}: if $3 NCP. SRCINCPSTASHL.B32; . (285 
:1 1249 1! : 
; 1 é SHOW MODULE X25-PROTOCOL 
:1 1 1 : 
: 1 P 1 1 SSTATE (ST : 
: 1 P 1 1 (TPR “FOE, ’$T_SPR_PMT_DAT), : 
71 P 1 1 (TPAS-LAMBDA, ~ST_SPR_BAT) : 
74 1 : 1 ); ; 
: ad ; 
: ! | $ | Obtain the database type or prompt ; 
[14 1 7 
31 P 1 1 SSTATE (ST_SPR_PMT_DAT : 
: : (TPAS_LAMBDA,, ACTSPRMPT,,, PMTSG_SPR_DAT)); ; 
:14 P 1265 1 S$STATE (ST_SPR : 
31 P 1266 ((ST_INF_ OTYBE1)) 
. an pe 
:1 P 1 $ 1 S$STATE ( 
:1 P1270 1 ( DTE® ST SPR, DTE) 
: 1 P1271 1 (*GROUP', ST ~$PR GRP). 
:1 P 1 1 ("KNOWN', ST~SPR7KNW) 
: 1 P1273 1 (TPAS_LAMBDA; ST~SPR_DOIT) 
q te 
71 P 1 1 SSTATE (ST_SPR_K 
:1 P 1 1 (*pTES' ‘ST "SPR port ACTSSAVPRM, , , PBKSG_SPR_KDT) 
71 P 1 1 (*GrouPs’, ST_SPR_DOIT ACTSSAVPRN, ; , PBKSG_SPR_KGR), 
: 1 P 1 1 (TPAS_LAMADA, -3 RePR. DOIT 
3 1 1 1 ds 
: 130 1582 1: 
: 1 if Collect the DTE name or prompt 
:1 ig Pp 1 COMMAND_PROMPT 
: 1% p (SPR, DTE, NCPS_INVVAL, 
: i 16 P i ((SE_DTE_NUMBER) , ST_SPR_DOIT, ACTSSAVPRM, , , PBKSG_SPR_DTE) 
: 131 1 1 
: 18s 1331 
: 1 ’ Collect the GROUP name or prompt 
:1 4 Pi 2 COMMAND_PROMPT 
: 4 P (SPR, GRP, NCPS_INVVAL, 
$1 6 P 1 1 ((SE_GRP_NAME), ST_SPR_DOIT, ACTSSAVPRM, , , PBKSG_SPR_GRP) 
: eo 
: 1 P 1 1 $STATE (ST_S 
+1 Pp 1 1 (ast INF” OO PEL)) 
> 1331 1 1 ); 
:1 ; 1 1 
:1 P 1 1 $STATE (, 
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; 1 P 1 (TPAS_EOS, TPAS_EXIT, ACTSVRB_SHOLIS, , , SDB$G_SPR) 
: 1333 1309 1 WE ho, 
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i SHOW MODULE X25-SERVER 


(ToRs.60 ae _SSE_PMT_DAT), 
1 (TPAS feSk" “$T_SSE_BAT) 
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' Obtain the database type or prompt 


aed ad ed Hd bt dd 


P SSTATE (ST_SSE_PMT_DAT 
(TPRS st RMBDAY ACTSPRMPT,,, PMT$G_SSE_DAT)); 
P SSTATE (ST_SSE 
Pp CCST. INF_ ay 
P SSTATE (, 
P (*KNOWN', ST_SSE oh 
P (Dest INkT 1OR SSE OD st), 
P (TPASL LAMBDA, gr? i: “D6! 
3e¢ P SSTATE (ST esse 
P (DEST! TRATIONS ST_SSE_DOIT, ACTSSAVPRM, , , PBK$G_SSE_KDS), 
Pp CTPA PAS_LAMBDA, Sf_SSE_DOIT) 
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! Collect the DESTINATION name or prompt 
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P COMMAND_PROMPT 
36 4 (SSE, DST, NCPS_INVVAL, 
$f P 4s ((SE DEST_NAME), ST_SSE_DOIT, ACTSSAVPRM, , , PBKS$G_SSE_DST) 
376 4$ 

7 P 1348 1 $STATE (ST_SSE_DOIT 

78 P 1349 ((ST_INF_TYPE1)) 

79 50 ); 

a 23 

1 P é SSTATE ( . 
38¢ Pp 333 (TPAS_ EOS, TPAS_EXIT, ACTS$VRB_SHOLIS, , , SDB$G_SSE) 
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